home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / module / numpad.module < prev    next >
Text File  |  1996-09-26  |  750b  |  67 lines
  1. MODULE NumPad;
  2.  
  3. KEY "control numpad 0"
  4.   _insertMode:=NOT _insertMode
  5. END;
  6.  
  7. KEY "numpad 1"
  8.   Goto([1,_length])
  9. END;
  10.  
  11. KEY "numpad 2"
  12.   CursorDown(0)
  13. END;
  14.  
  15. KEY "numpad 3"
  16.   PageDown(90)
  17. END;
  18.  
  19. KEY "numpad 4"
  20.   CursorLeft(0)
  21. END;
  22.  
  23. KEY "numpad 5"
  24.   SetMark
  25. END;
  26.  
  27. KEY "numpad 6"
  28.   CursorRight(0)
  29. END;
  30.  
  31. KEY "numpad ."
  32.   Delete
  33. END;
  34.  
  35. KEY "numpad 7"
  36.   Goto([1,1])
  37. END;
  38.  
  39. KEY "numpad 8"
  40.   CursorUp(0)
  41. END;
  42.  
  43. KEY "numpad 9"
  44.   PageUp(90)
  45. END;
  46.  
  47. KEY "control numpad ("
  48.   _stdNumPad:=NOT _stdNumPad;
  49.   IF _stdNumPad=TRUE THEN
  50.     Message("NumLock ON")
  51.   ELSE
  52.     Message("NumLock OFF")
  53.   END;
  54. END;
  55.  
  56. KEY "control numpad )"
  57.   IF _wordWrap=0 THEN
  58.     Message("Wordwrap ON");
  59.     _wordWrap:=2
  60.   ELSE
  61.     Message("Wordwrap OFF");
  62.     _wordWrap:=0
  63.   END;
  64. END;
  65.  
  66. END NumPad.
  67.